home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO021.dsk / FIX.PRODOS1.1.1.bas < prev    next >
BASIC Source File  |  2012-02-16  |  1KB  |  30 lines
  1. 10  REM  Stop ProDOS Track 0 trashing
  2. 20  REM   Patches by Stephen Thomas
  3. 30  REM    MacLagan Wright & Associates
  4. 40  REM    West Heidelberg, VIC Australia
  5. 100  TEXT : HOME :D$ =  CHR$(4):E = 0
  6. 110  VTAB 12: PRINT "Now patching ProDOS 1.1.1"
  7. 120  ONERR  GOTO 500
  8. 130  IF  PEEK(116) <96  THEN E = 1: GOTO 500: REM Make sure there's room
  9. 140  PRINT D$;"UNLOCK PRODOS"
  10. 150  PRINT D$;"BLOAD PRODOS,A$2000,TSYS"
  11. 200  FOR ADR = 22211 TO 22220  STEP 3: REM Change 4 STAs to LDAs
  12. 210  IF  PEEK(ADR) = 189  THEN E = 2: GOTO 500
  13. 220  IF  PEEK(ADR) < >157  THEN E = 3: GOTO 500
  14. 230  POKE ADR,189
  15. 240  NEXT 
  16. 300 ADR = 20484:V(0) = 189:V(1) = 142:V(2) = 192: REM Change NOPs to LDA $C08E,X
  17. 310  FOR I = 0 TO 2
  18. 320  IF  PEEK(ADR +I) < >234  THEN E = 3: GOTO 500
  19. 330  POKE ADR +I,V(I)
  20. 340  NEXT 
  21. 400  PRINT D$;"BSAVE PRODOS,A$2000,TSYS"
  22. 410  PRINT D$;"LOCK PRODOS"
  23. 420  PRINT : PRINT "Patches completed."
  24. 430  END 
  25. 500  PRINT  CHR$(7);"Error!  No patches were made."
  26. 510  ON E GOTO 530,540,550
  27. 520  PRINT "ProDOS file not found.": END 
  28. 530  PRINT "Not enough room to load ProDOS.": END 
  29. 540  PRINT "File has already been patched.": END 
  30. 550  PRINT "This version of ProDOS is not 1.1.1"